home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / cover page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  44 lines
  1. 3 ifa>.then160
  2. 4 print"[147]"
  3. 5 remifx=0thenx=1:load"unpack.ml300",8,1
  4. 6 remifx=1thenx=2:load"rainbow.p",8,1
  5. 7 goto100
  6. 8 :
  7. 10 sys 828
  8. 20 poke198,0:wait198,1
  9. 30 poke53265,peek(53265)and223
  10. 40 poke53270,peek(53270)and239
  11. 50 poke53272,21
  12. 55 print"[147]"
  13. 60 goto63000
  14. 70 :
  15. 80 :
  16. 90 :
  17. 100 v=53248:s=54272
  18. 110 pokev+32,.:pokev+33,.:print"           [204][207][193][196][211][212][193][210] [206]umber 4"
  19. 120 print" '[193]n arc of spectral colours appearing":print
  20. 130 print"in the sky opposite the sun as a result":print
  21. 140 print"of the refractive dispersion of sun-":print
  22. 150 print"light in drops of rain or mist, or any ":print
  23. 155 print"similar arc or graded display of        colours.'":print
  24. 157 print"    [195]over designed by [202]ohn [199]ardner.":print""
  25. 160 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"rainbow.p",8,1
  26. 166 ifa=1thena=2:load"unpack.ml300",8,1
  27. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  28. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  29. 177 pokes+15,3:pokes+7,7:pokes+14,18
  30. 180 print"[145][156][146][208]ress space bar to view cover."
  31. 182 print"[208]ress it again to return to menu."
  32. 185 poke198,0:wait198,1
  33. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  34. 200 :
  35. 300 :
  36. 63000 rem   return back to menu
  37. 63005 poke597,0:rem set hide flag to 0
  38. 63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
  39. 63020 poke53280,0
  40. 63025 printchr$(14)
  41. 63030 print"[147][204]aunching [212]able of [195]ontents";
  42. 63035 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run"
  43. 63040 poke631,13:poke632,13:poke198,2:end
  44.